home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 3780.ZIP / VGALIB10.ZIP / DEMO.BAS (.txt) < prev    next >
QuickBASIC Tokenized Source  |  1991-08-21  |  12KB  |  167 lines
  1. Scrn13
  2. KeepDataJ
  3. SetPixel    
  4. SetPixel256]
  5. Line256
  6. Box256
  7. BoxFe256B
  8. BoxF256
  9. CircleVEE
  10. XCenter
  11. YCenterr
  12. Radius
  13. CircleColor
  14. XAspect
  15. YAspect
  16.     Circle256
  17. NMALLOC
  18. PSET200
  19. LINE200
  20. BOX200,
  21. BoxF200h
  22. @    CIRCLE200
  23. Set320x200
  24. WColor>
  25. Set80x25
  26. BoxF200a
  27. Set320x240
  28. PSET240
  29. LINE240]
  30. BOX240T
  31. press
  32. BOXF240
  33. @    CIRCLE240
  34. INCLUDE
  35. PONIT200
  36. PONIT240
  37. Get200
  38. Array
  39. Put200
  40. TPut200
  41. RPUT200
  42. Put240
  43. CreateVirtualScreen
  44. NumCols
  45. NumRowsk
  46. Array1
  47. Array2
  48. VTPutw
  49. SavePalP
  50. RestorePal
  51. CharSet200
  52. @    SetCursor
  53. Print200
  54. Set320x400
  55. XLINE200
  56. Lines
  57. CharSet
  58. FontFile
  59. FontFile.NName
  60. Fonts
  61. SetFont200
  62. PSET40
  63. C:\QB45\VGALIB\DECLARE.BAS'
  64. --- Graphic primitives for the 320x200 mode
  65. --- Graphic primitives for the 320x240 & 320x400 modes
  66. --- GET/PUT Commands for the 320x200 mode3
  67. --- GET/PUT Commands for the 320x240 & 320x400 modes
  68. --- Virtual Screen Commandse
  69. --- Palette Commands
  70. --- Font Commandsn
  71. --- Misc.
  72. Dimension Array for Character Set info
  73. ---Graphics Mode
  74. ---Draw points
  75. This is the BASIC PSET Statement. It
  76. fills half the screen. Press a key."
  77.  Start the Timer
  78.  Stop the Timer 
  79. ---Draw Points using PSET200 function
  80. Now PSET200 will fill the rest."
  81. Press a Key.
  82. ---Give comparison
  83. BASIC PSET: #.###     PSET200: #.###
  84. Now press a key to see the some lines!
  85. ---First BASIC LINE drawingm
  86. This is the BASIC LINE command. It
  87. will fill the screen with lines.
  88. ---Now LINE200
  89. Now for Line200.
  90. Press a key.
  91. BASIC LINE: #.###     LINE200: #.###
  92. Now press a key to see something else.
  93. ---Now LINE200
  94. Here's something you can't do in
  95. BASIC...LINE drawing with XOR!
  96. Notice that it doesn't
  97. destroy this text?
  98. Now press a key to see some boxes!
  99. ---First BASIC LINE,Bt
  100. This is the BASIC LINE ,B command. It"
  101. draws exploding boxes.
  102. ---Now Box200"
  103. Now for Box200."
  104. Press a key.
  105. ---Give times
  106. BASIC LINE: #.###     Box200: #.###"
  107. Press a key to see some filled boxes!"
  108. ---First BASIC LINE,BF
  109. This is the BASIC LINE ,BF command. It
  110. will draw exploding boxes.
  111. ---BOXF200
  112. Now for BoxF200.
  113. Press a key.
  114. BASIC LINE: #.###     BoxF200: #.###
  115. Press a key to see the other modes."
  116. ---First BASIC
  117. This is the CIRCLE command. It
  118. will draw exploding circles.
  119. Now for Circle200.
  120. Press a key.
  121. BASIC LINE: #.###     Circle200: #.###
  122. Press a key to see other modes
  123. Press a key to see the 320x240 mode.
  124. Since the PRINT command doesn't work
  125. in these modes, after you hear the
  126. beep, press a key.
  127. Press a key to see the 320x400 mode.
  128. Since the PRINT command doesn't work
  129. in these modes, after you hear the
  130. beep, press a key.
  131. First, the PSET240 command, to
  132. Set individual pixels.
  133. Now we'll draw some random lines "
  134. using LINE240.
  135. Here are some boxes in random sizes"
  136. and colors using BOX240.
  137. And now, filled boxes in random sizes"
  138. and colors using BOXF240."
  139. And finally circles using"
  140. CIRCLE240.
  141. Press a key to see the 320x400 mode.
  142. Since the PRINT command doesn't work
  143. in these modes, after you hear the
  144. beep, press a key.
  145. First, the PSET240 command, to
  146. Set individual pixels.
  147. Now we'll draw some random lines "
  148. using LINE240.
  149. Here are some boxes in random sizes"
  150. and colors using BOX240.
  151. And now, filled boxes in random sizes"
  152. and colors using BOXF240."
  153. And finally circles using"
  154. CIRCLE240.
  155. Okay...Enough lines and stuff.
  156. How about a change of Fonts?
  157. Broadway.FNTd
  158. HERE IS BROADWAY
  159. Cyber.FNT"d
  160. HERE IS CYBER.
  161. GRAPHICS DEMO.  (C) Copyright 1991, SCN Creative Solutions
  162. Thanks for trying out the VGALIB DEMO.
  163. To Register, send Check or Money Order To:
  164.            John Cressman        
  165.        1043 Main Street, Flr 2  
  166.          Emerald, PA  18080     
  167.